home *** CD-ROM | disk | FTP | other *** search
/ HeiBe Erotik / HeiBe Erotik.iso / erovoll / dice / diceanz.dir / 00001_Script_StartScript < prev    next >
Text File  |  1979-12-31  |  470b  |  22 lines
  1. on startMovie
  2.   global AktCast, FT, Aktlevel, Level, DiceGirl
  3.   --set level=10
  4.   --set dicegirl=1
  5.   set Aktlevel=level
  6.   set Aktcast="Dice_"&ft
  7.   Dicebild_setzen
  8.   cursor[12]
  9. end startMovie
  10.  
  11. on Dicebild_setzen
  12.   global AktCast, Aktlevel, DiceGirl
  13.   set the text of member 7=string(Aktlevel)
  14.   duplicate member (((DiceGirl*12)-12)+Aktlevel) of castlib Aktcast, member 2
  15. end Dicebild_setzen
  16.  
  17.  
  18. on closewindow
  19.   forget window "DiceAnz"
  20. end closewindow
  21.  
  22.